DEFINITION MODULE RsrcTool;

(*
Resource Tools.

UK __DATE__ __TIME__
*)

(*DEF_SWITCHES*)

FROM AES     IMPORT Key,TreePtr,ObjectIndex,StringPtr,BitBlkPtr;
FROM RsrcMgr IMPORT TreeIndex,StringIndex,FreeStringIndex,FreeImageIndex;

PROCEDURE TransformBitBlock(Block: BitBlkPtr);

PROCEDURE TransformObject(Tree: TreePtr; Index: ObjectIndex);

#if proc_const
CONST TransGImage = TransformObject;
#else
VAR TransGImage: PROCEDURE(TreePtr,ObjectIndex);
#endif

PROCEDURE TransformTree(Tree: TreePtr);

PROCEDURE NumberOfTrees(): TreeIndex;

PROCEDURE TreeArray(T: TreeIndex): TreePtr;

PROCEDURE RsrcLoad(REF Name: ARRAY OF CHAR): BOOLEAN;

PROCEDURE GetTreePtr(TreeNo: TreeIndex): TreePtr;

PROCEDURE GetStringPtr(StringNo: StringIndex): StringPtr;

PROCEDURE GetFreeStringPtr(FreeStringNo: FreeStringIndex): StringPtr;

PROCEDURE GetFreeImagePtr(FreeImageNo: FreeImageIndex): BitBlkPtr;

PROCEDURE SpecialChar(Code: Key): CHAR;

END RsrcTool.
